home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / SCREEN.FAS < prev    next >
Text File  |  1994-02-05  |  883b  |  13 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #14Y(00 00 00 00 00 01 D5 37 01 D6 30 DE 19 01) "SCREEN" ("LISP"))
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION CLEAR-WINDOW
  5.     CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE INSERT-WINDOW-LINE HIGHLIGHT-ON
  6.     HIGHLIGHT-OFF WINDOW-CURSOR-ON WINDOW-CURSOR-OFF WITH-WINDOW *WINDOW*
  7.   ))
  8. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D5 30 5B 19 01) (SPECIAL *WINDOW*))
  9. #Y(#:TOP-LEVEL-FORM-4 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) WITH-WINDOW
  10.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  11.    #Y(WITH-WINDOW #21Y(01 00 01 00 00 08 91 02 D5 D6 D7 D8 9C 76 C4 78 02 5C 03 19 04) LET
  12.       ((*WINDOW* (MAKE-WINDOW))) UNWIND-PROTECT PROGN ((CLOSE *WINDOW*))
  13.   )  )